home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol016 / xscan.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  1.3 KB  |  70 lines
  1.     REM    SCAN
  2.     INPUT "FILENAME: ";FILENAME$
  3.     FILEOUT$=FILENAME$
  4.     DIM    FLAGS(20)
  5.     DIM    FIRST$(20),LAST$(20),ADDRESS$(20),CITY$(20)
  6.     DIM    ZIP$(20),AREA$(20),TEL$(20)
  7.     K=20
  8.     OUTCNT=0
  9.     COUNTER=0
  10.     FILE    FILENAME$
  11.     FILE    FILEOUT$
  12.  
  13. 10    REM
  14.     FOR J=1 TO 20
  15.     FLAGS(J)=0
  16.     NEXT J
  17.  
  18.     FOR J=1 TO 20
  19.     READ #1; LAST$(J), FIRST$(J), ADDRESS$(J), CITY$(J),\
  20.         ZIP$(J),AREA$(J),TEL$(J)
  21.     IF LAST$(J)="END" THEN 20
  22.     COUNTER=COUNTER+1
  23.     NEXT J
  24. 20    GOSUB 65
  25. 33    REM
  26.     PRINT
  27.     PRINT "0 -->END PAGE / 1-20 -->DELETE ITEM / 21 -->RESTART"
  28.  
  29. 35    REM
  30.     INPUT ANSWER
  31.     IF ANSWER = 0 THEN 40
  32.     IF ANSWER = 21 THEN 55
  33.     IF ANSWER > 20 THEN 35
  34.     IF ANSWER <1   THEN 35
  35.     FLAGS(ANSWER)=1
  36.     GOTO 35
  37.  
  38. 40    REM
  39.     FOR J=1 TO K
  40.     IF FLAGS(J) <> 0 THEN 45
  41.     PRINT #2; LAST$(J), FIRST$(J), ADDRESS$(J),CITY$(J),\
  42.         ZIP$(J),AREA$(J),TEL$(J)
  43.     IF LAST$(J)="END" THEN 22
  44.     OUTCNT=OUTCNT+1
  45. 45    REM
  46.     NEXT J
  47.     GOTO 10
  48.  
  49. 55    REM
  50.     FOR J=1 TO 20
  51.     FLAGS(J)=0
  52.     NEXT J
  53.     GOSUB 65
  54.     GOTO 33
  55.  
  56. 65    REM    LIST
  57.     PRINT CHR$(26)
  58.     FOR J=1 TO 20
  59.     IF LAST$(J)="END" THEN 70
  60.     PRINT J;": ";LAST$(J);"/";FIRST$(J);TAB(27);ADDRESS$(J);\
  61.             TAB(55);CITY$(J);" ";ZIP$(J)
  62.     NEXT J
  63. 70    RETURN
  64.  
  65. 22    REM    END OF JOB ROUTINE
  66.     PRINT "END OF LIST"
  67.     PRINT COUNTER;" INPUT ITEMS"
  68.     PRINT OUTCNT;" OUTPUT ITEMS"
  69.     END
  70.